
* =================================
* Paper title: It's All About Political Incentives: Democracy and the Renewable Feed-In Tariff
* Authors: Patrick Bayer (Glasgow) and Johannes Urpelainen (Columbia) 
* Journal of Politics

* Last modified: November 7, 2015

* Data files used: OECD_FITlevels.dta 
* System: Stata 13.1 on WIN 10

* Purpose: This do file replicates the results for FIT levels in OECD countries (Appendix A8)
* =================================

*NB: Place all files in the same folder for paths to work properly

clear all
set more off, permanently

* =================================
* 0. Load data
* =================================

use "OECD_FITlevels.dta"


* =================================
* 1. Appendix A11: FIT levels in OECD countries and partisanship (Table A8)
* =================================

gen FIT_level_new = FIT_level*100
replace share=0 if share==.

eststo clear
eststo: xi: reg FIT_level_new share, vce(cluster id)
eststo: xi: reg FIT_level_new ideology, vce(cluster id)
eststo: xi: reg FIT_level_new share ideology i.year, vce(cluster id)
eststo: xi: reg FIT_level_new share ideology i.country, vce(cluster id)
eststo: xi: reg FIT_level_new share ideology i.year i.country, vce(cluster id)

/* esttab using "FIT_OECD_levels.tex", replace b(%9.2f) booktabs indicate("Year fixed effects = _Iyear*" ///
"Country fixed effects = _Icountry*") stats(N N_clust r2, labels("Observations" "Countries" "$ R^2$") fmt(0 0 3)) /// 
eqlabels(none) drop(o.* _cons) noconstant se label star(* 0.10 ** 0.05 *** 0.01) ///
mtitles("Model" "Model" "Model" "Model" "Model") ///
addnote ("Dependent Variable, Models: FIT levels." ///
"Standard errors clustered by country.") ///
order(share ideology)
*/
